home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 21
/
Tiger_Disk_021_19xx_Tiger-Crew-Disk_de_Side_A.d64
/
spg_demo malen
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
895b
|
42 lines
10 ifpeek(49234)<>asc("s")thenload" sprite*",8,1
20 sys49152:poke53280,11:poke53281,12:poke646,0
100 !gr1;gn0;ge;gx145;gy75;gi;gp1;gc11
101 !ds 255,255,255,255,255,255,255,255
102 x=0:y=0
103 gosub1000:!dm0:!dd x,y
104 geta$:ifa$=""then:!js:goto104
105 ifa$=""thenify<167then:!dm1:!dd x,y:y=y+1
106 ifa$="[145]"thenify>0then:!dm1:!dd x,y:y=y-1
107 ifa$=""thenifx<95then:!dm1:!dd x,y:x=x+1
108 ifa$="[157]"thenifx>0then:!dm1:!dd x,y:x=x-1
109 ifa$=chr$(13)then150
110 ifa$="s"then200
111 ifa$="l"then300
119 goto103
150 gosub1002:!dm0:!dd x,y
151 geta$:ifa$=""then:!js:goto151
154 ifa$=""thenify<167theny=y+1
155 ifa$="[145]"thenify>0theny=y-1
156 ifa$=""thenifx<95thenx=x+1
157 ifa$="[157]"thenifx>0thenx=x-1
158 ifa$=chr$(13)then103
159 ifa$="s"then200
160 ifa$="l"then300
169 goto150
200 !gr0
201 print"[147]"
202 input" name ";n$
203 !gs 0,"@:"+n$,8
204 !gr1:goto103
300 !gr0;ge
301 print"[147]"
302 input" name ";n$
303 !gl 0,n$,8
304 !gr1;gn0:goto103
1000 !tp1,1,"clear - mode !"
1001 gosub1003:return
1002 !tp1,1,"set - mode ! "
1003 !tp1,3,"x : [157][157][157]";x
1004 !tp1,4,"y :[160][160][160][157][157][157]";y
1005 return